function varargout=SubFun_SteadyState_OutputParam(InputParam)

PP          =   Setup_PP(InputParam);
PP.InfoPrint=   1;
%% Steady State
PSI_0       =   1;
FracHN_w_0  =   1;
FracHN_wN_0 =   PP.ExoState.Idio_RI.InvDist(2)/PP.ExoState.Idio_RI.InvDist(1);
DiscFactor_0=   0.02;
try
    SS          =   SteadyState_Solver(PP,PSI_0,FracHN_w_0,DiscFactor_0,FracHN_wN_0);
    OutputParam =   InputParam;
    OutputParam.Cons_FracT  ...
                =   SS.Cons_FracT;
    PP          =   Setup_PP(OutputParam);
    
    varargout{1}=   OutputParam;
    varargout{2}=   PP;
    varargout{3}=   SS;
catch
    OutputParam =   [];
    varargout{1}=   OutputParam;
end

